function [RM_Mean] = RM_Mean_Prism(Data_Summary, animalName, drug)

for n = 1:size(Data_Summary, 2)
    if strcmp(Data_Summary(n).animalName, animalName) && strcmp(Data_Summary(n).drug, drug) && Data_Summary(n).Mobility_Session1_Pass == 1 && Data_Summary(n).Mobility_Session2_Pass == 1 
        RM(n,1) = Data_Summary(n).RateMap_Corr_Memory_Index;
    else
        RM(n,1) = nan;
    end
end
RM_Mean = mean(RM, 'omitnan');

end